home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1994 / 3 / 02 / tips & tricks / vlab_serie.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-06-01  |  1.2 KB  |  56 lines

  1. /* VLab-Arexx-Script
  2. ----------------------------------------------------
  3. Scannen einer Bilderserie mit SCAN-REQUESTER.
  4. Auflösung und Farbtiefe müssen vorher im Einlesen-
  5. Fenster eingestellt werden. Die gescannten Bilder
  6. werden in einem Verzeichnis nach Wahl im Vlab-Format
  7. mit durchnummerierten Dateinamen abgelegt und können
  8. mit SequenceToAmiga.rx nach ILBM gewandelt werden.
  9. ----------------------------------------------------
  10. */
  11.  
  12. OPTIONS RESULTS
  13. OPTIONS FAILAT 20
  14.  
  15. ADDRESS VLAB
  16. 'SAVESETTINGS t:OldSettings'
  17. SCREENTOFRONT
  18. ACTIVATEWINDOW
  19. AUTOPREVIEW OFF
  20. AUTODISPLAY OFF
  21. SAVEICONS OFF
  22. BLACKBACKGROUND ON
  23.  
  24. GETPATH SEQUENCE
  25. 'SETPATH USER "'RESULT'"'
  26. 'SETPATTERN USER ""'
  27. 'ASLREQUEST "Serie speichern"'
  28.  
  29. if RC = 0 then
  30.    bildname = RESULT
  31.    nummer   = "0"
  32.    FALSE    = 0
  33.    TRUE     = 1
  34.    end      = FALSE
  35.  
  36.    ADDRESS VLAB
  37.    do while end == FALSE
  38.       'REQUEST TITLE
  39.        "Bilderserie" "Name: 'bildname'.'nummer'"
  40.                              GADGETS Scan|Ende'
  41.       select
  42.       when RESULT = 1 then
  43.            do
  44.              SCAN
  45.              'SAVEAS "'bildname'.'nummer'"'
  46.              do
  47.                nummer = nummer + 1
  48.              end
  49.            end
  50.       otherwise end = TRUE
  51.    end
  52. end
  53.  
  54. ADDRESS VLAB
  55. 'LOADSETTINGS t:OldSettings'
  56.